(read_minibuf): Clean up the binding stack if
authorGerd Moellmann <gerd@gnu.org>
Mon, 5 Mar 2001 11:29:51 +0000 (11:29 +0000)
committerGerd Moellmann <gerd@gnu.org>
Mon, 5 Mar 2001 11:29:51 +0000 (11:29 +0000)
called noninteractively.

src/minibuf.c

index a5e8bf8369e45c996d60f6f19d68334bcac57aed..173028665208d7e8f15487d8d1e1ff8fecea0d26 100644 (file)
@@ -397,9 +397,12 @@ read_minibuf (map, initial, prompt, backup_n, expflag,
     }
 
   if (noninteractive)
-    return read_minibuf_noninteractive (map, initial, prompt, backup_n,
-                                       expflag, histvar, histpos, defalt,
-                                       allow_props, inherit_input_method);
+    {
+      val = read_minibuf_noninteractive (map, initial, prompt, backup_n,
+                                        expflag, histvar, histpos, defalt,
+                                        allow_props, inherit_input_method);
+      return unbind_to (count, val);
+    }
 
   /* Choose the minibuffer window and frame, and take action on them.  */